home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 11 / trs002.zip / TSRSH.ASM next >
Assembly Source File  |  1987-02-01  |  26KB  |  1,088 lines
  1. PAGE    60,132
  2. TITLE    Ram-Resident Program Shell, Preliminary Version (Lesson 2)
  3. SUBTTL    Date 02-01-87 -- Tutorial for Microsoft Forum
  4. ;-----------------------------------------------------------------------------
  5. ;    Ram-Resident Program Shell
  6. ;
  7. ;
  8. ;The software, documentation and source code are: 
  9. ; 
  10. ;    (C) Copyright 1986, 1987
  11. ;    Chip Rabinowitz
  12. ;    All Rights Reserved 
  13. ; 
  14. ;    51 East Rogues Path
  15. ;    Huntington Station NY 11746
  16. ;    Assistant SysOp, Microsoft Forum, Compuserve PPN 76703,350
  17. ; 
  18. ; 
  19. ;COPYRIGHT NOTICE AND WARRANTY INFORMATION 
  20. ;----------------------------------------- 
  21. ; 
  22. ;This document ("the source code"), other accompanying written and disk-based
  23. ;notes and specifications ("the documentation"), and all referenced and related
  24. ;program files accompanying the source code and the documentation ("the
  25. ;software") are copyrighted by Chip Rabinowitz.  
  26. ;
  27. ;This program has been uploaded to Compuserve as part of a Tutorial in how
  28. ;to write Terminate-But-Stay-Resident programs, being conducted on
  29. ;Compuserve's Microsoft Special Interest Group during early 1987/
  30. ;
  31. ;This code (and all other code uploaded by the Copyright Holder as a 
  32. ;part of this TSR Tutorial) may be used with the following restrictions: 
  33. ;
  34. ;(1) If all or part of this code is used as part of a software package of 
  35. ;ANY kind, the following acknowledgement must be used in the Documentation 
  36. ;accompanying said package:
  37. ;
  38. ;    'Parts of the Resident Program Management for this Product are'
  39. ;    'Copyright (C) 1986, 1987 by Chip Rabinowitz, and are incorporated'
  40. ;    'into this product courtesy of the Ringmaster Development Team'
  41. ;
  42. ;(2) If all or part of this code is used as part of a software package that
  43. ;is placed in the public domain, no further restrictions apply.
  44. ;
  45. ;(3) If all or part of this code is used as part of a software package that
  46. ;is being distributed as 'shareware', a one-time-only donation of $10 will be
  47. ;accepted for the express purpose of continuing research into TSR standards.
  48. ;Note that this is a voluntary contribution, and should be sent to the
  49. ;Ringmaster Development Team at the address printed above.
  50. ;
  51. ;(4) If all or part of this code is used as part of a software package that
  52. ;will be distributed as a commercial product, a one-time-only payment of
  53. ;$25 will be accepted the express purpose of continuing research into TSR 
  54. ;standards.  Note that in THIS CASE ONLY, this is not a voluntary 
  55. ;contribution.  Commercial Developers are REQUIRED to make payment prior to
  56. ;incorporating these routines into their product.
  57. ;
  58. ;No copy of the source code may be distributed or given away without the
  59. ;accompanying documentation; and this notice must not be removed. 
  60. ; 
  61. ;There is no warranty of any kind associated with this software, and the
  62. ;copyright owner is not liable for damages of any kind.  By using this
  63. ;software, you agree to this. 
  64. ; 
  65. ;
  66.  
  67. XON     equ    11h
  68. XOFF    equ    13h
  69. TRUE    equ    1
  70. FALSE   equ    0
  71. CR    equ    0dh
  72. LF    equ    0ah
  73. TAB    equ    9
  74.  
  75.  
  76. HOTKEYON    equ    01h    ;hot key pressed
  77. SHIFTSON    equ    02h    ;shift states match
  78. TSRACTIVE    equ    04h    ;tsr is running in foreground
  79. INT28ACTIVE    equ    08h    ;INT28 routine is running in background
  80.  
  81. KB_DATA    equ    60h
  82. KB_CTL    equ    61h
  83. KB_FLG1    equ    17h
  84. KB_FLG2    equ    18h
  85. BIOS_DATA    equ    40h
  86.  
  87. code segment para public 'CODE'
  88.     org 100h
  89.     assume    cs:code, ds:code, es:code
  90. start:    jmp    begin
  91.  
  92.     db    1bh,'[2J'
  93. cpyrt    db    'Ram-Resident Program Shell, Preliminary Version (Lesson 2)',
  94.     db    CR,LF,LF
  95.     db    'Copyright (C) 1986, 1987 Chip Rabinowitz',
  96.     db    CR,LF,'All Rights Reserved',CR,LF,LF,'$'
  97. hello    db    'Hello World!',CR,LF,'$'
  98. bad_dos_msg    db    'Incompatible DOS version .... Aborting!',07h,CR,LF,'$'
  99.  
  100. tsr_parms:
  101.     PSP    dw    ?    ;PSP of TSR
  102.     OLDPSP    dw    ?    ;location to save current PSP
  103.     DTA    dd    ?    ;DTA of TSR
  104.     OLDDTA    dd    ?    ;location to save current DTA
  105.     DSEG    dw    ?    ;TSR's Data Segment
  106.     SSEG    dw    ?    ;TSR's Stack Segment ....
  107.     SPTR    dw    0fffeh    ;.... and Stack Pointer
  108.     ISSEG    dw    0    ;interrupted SS ...
  109.     ISPTR    dw    0    ;..... and SP
  110.     SHIFTST    db    0    ;Shift State to Activate
  111.     HOTKEY    db    0ffh    ;scan code to activate
  112.     STATUS    dw    0    ;current status words
  113.     POPUP    dd    0    ;far pointer to popup routine
  114.  
  115. intflags    db    0
  116. ININT13        equ    04h    ;Bios disk interrupt
  117. ININT21        equ    08h    ;DOS interrupt
  118.  
  119. dosversion    db    0    ;current version of DOS
  120. waitcount    db    0    ;wait to activate count
  121.  
  122. indosflag    dd    0    ;Pointer to INDOS flag
  123. doscriterr    dd    0    ;Pointer to DOS Critical Error Flag
  124.  
  125. dossseg        dw    0    ;pointer to dos stack segment
  126. dossptr        dw    0    ;pointer to dos stack pointer
  127. dossize        dw    0    ;dos stack size
  128.  
  129. dos21funcs    label    byte
  130.     db    0,    0,    0,    0,    0,    0,    0,    0    ;0-7
  131.     db    0,    0,    0,    0,    0,    0ffh,    0ffh,    0ffh    ;8-f
  132.     db     0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh    ;10-17
  133.     db    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh    ;18-1f
  134.     db    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0,    0ffh    ;20-27
  135.     db    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0    ;28-2f
  136.     db    0ffh,    0,    0,    0,    0,    0,    0ffh,    0ffh    ;30-37
  137.     db    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh    ;38-3f
  138.     db    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh    ;40-47
  139.     db    0,    0,    0,    0,    0ffh,    0,    0ffh,    0ffh    ;48-4f **
  140.     db    0,    0,    0,    0,    0ffh,    0,    0ffh,    0ffh    ;50-57
  141.     db    0,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0,    0    ;58-5f
  142.     db    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh,    0ffh    ;60-67
  143.  
  144. ;
  145. ; ***************************************************************************
  146. ;    These are the bios interrupt vectors
  147. ;
  148.  
  149. BIOSI8    equ    08h        ;Bios Timer interrupt
  150. BIOSI9    equ    09h        ;BIOS Hardware Keyboard interrupt
  151. BIOSIB    equ    0Bh
  152. BIOSIC    equ    0Ch
  153. BIOSI10    equ    10h
  154. BIOSI13    equ    13h        ;Bios Disk interrupt
  155. BIOSI14    equ    14h
  156. BIOSI15    equ    15h
  157. BIOSI16    equ    16h        ;Bios Keyboard interrupt
  158. BIOSI17    equ    17h
  159. BIOSI1C    equ    1Ch
  160. DOSI21    equ    21h        ;DOS service router interrupt
  161. DOSI28    equ    28h        ;DOS Idle interrupt
  162. DOSI33    equ    33h        ;mouse interrupt
  163. BIOSI1B    equ    1Bh
  164. DOSI23    equ    23h
  165. DOSI24    equ    24h
  166. ;
  167. oldint8        dd    0    ;BIOS Hardware Timer Interrupt
  168.         db    BIOSI8
  169.         dw    offset newint8    ;replacement vector
  170. oldint9        dd    0    ;BIOS Hardware Keyboard Interrupt
  171.         db    BIOSI9
  172.         dw    offset newint9    ;replacement vector
  173. oldint13    dd    0    ;BIOS Disk Interrupt
  174.         db    BIOSI13
  175.         dw    offset newint13    ;replacement vector
  176. oldint16    dd    0    ;BIOS Software Keyboard Interrupt
  177.         db    BIOSI16
  178.         dw    offset newint16    ;replacement vector
  179. oldint21    dd    0    ;DOS Services Interrupt
  180.         db    DOSI21
  181.         dw    offset newint21    ;replacement vector
  182. oldint28    dd    0    ;DOS Idle Interrupt
  183.         db    DOSI28
  184.         dw    offset newint28    ;replacement vector
  185. oldint1B    dd    0    ;control-C vector
  186.         db    BIOSI1B
  187.         dw    offset intret    ;replacement vector
  188. oldint23    dd    0    ;control-C vector
  189.         db    DOSI23
  190.         dw    offset intret    ;replacement vector
  191. oldint24    dd    0    ;critical error vector
  192.         db    DOSI24
  193.         dw    offset newint24    ;replacement vector
  194.  
  195. ;
  196. ; ***************************************************************************
  197. ;    Function to restore interrupts.
  198. ;
  199. ;    If AX=0, this function does popup-interrupts (1B, 23 and 24)
  200. ;    If AX=anything else, this function does initial interrupts
  201. ;
  202. restore_int proc near
  203.     push    ds
  204.     push    ax
  205.     push    dx
  206.     push    si
  207.     push    di
  208.     push    cx
  209.     mov    di,7            ;7 bytes per structure
  210.  
  211.     or    ax,ax
  212.     jnz    restore1
  213.  
  214.     mov    cx,3            ;three times through
  215.     mov    si,offset oldint1B    ;start at table beginning
  216.     jmp    restore_loop
  217. restore1:
  218.     mov    cx,06h            ;six interrupts!
  219.     mov    si,offset oldint8    ;top of table
  220.  
  221. restore_loop:
  222.     push    cx
  223.     push    di            ;save structure size
  224.     push    ds
  225.     mov    al,4[si]        ;interrupt number
  226.     mov    dx,[si]            ;IP of interrupt vector
  227.     mov    ds,2[si]        ;CS of interrupt vector
  228.     mov    ah,25h            ;set interrupt vector function
  229.     int    21h
  230.     pop    ds
  231.     xor    ax,ax            ;clear this entry from table
  232.     mov    [si],ax            ;so it shows not used
  233.     mov    2[si],ax
  234.     pop    di            ;get size back
  235.     add    si,di            ;do it again
  236.     pop    cx
  237.     loop    restore_loop
  238.  
  239.     pop    cx
  240.     pop    di
  241.     pop    si
  242.     pop    dx
  243.     pop    ax
  244.     pop    ds
  245.     ret
  246. restore_int endp
  247. ;
  248. ; ***************************************************************************
  249. ;    Function to set interrupts.
  250. ;
  251. ;    If AX=0, this function does popup-interrupts (1B, 23 and 24)
  252. ;    If AX=anything else, this function does initial interrupts
  253. ;
  254. setup_int proc near
  255.     push    es
  256.     push    ax
  257.     push    bx
  258.     push    dx
  259.     push    di
  260.     push    si
  261.     push    cx
  262.     mov    di,7            ;7 bytes per structure
  263.  
  264.     or    ax,ax
  265.     jnz    setup1
  266.  
  267.     mov    cx,3            ;three times through
  268.     mov    si,offset oldint1B    ;start at table beginning
  269.     jmp    setup_loop
  270. setup1:
  271.     mov    cx,06h            ;six interrupts!
  272.     mov    si,offset oldint8    ;top of table
  273.  
  274. setup_loop:
  275.     push    cx
  276.     push    di            ;save structure size
  277. ;    push    ds
  278.  
  279.     mov    ax,[si]            ;check for value
  280.     or    ax,ax            ;if not zero, next one
  281.     jnz    setup2
  282.     mov    al,4[si]        ;interrupt number
  283.     mov    ah,35h            ;get interrupt vector function
  284.  
  285.     int    21h
  286. ;    pop    ds
  287.     mov    [si],bx            ;save IP
  288.     mov    2[si],es        ;save CS
  289.  
  290.     mov    al,4[si]        ;interrupt number
  291.                     ;DS already contains correct segment
  292.     mov    dx,5[si]        ;IP of interrupt vector
  293.     mov    ah,25h            ;set interrupt vector function
  294.     int    21h
  295.  
  296. setup2:
  297.     pop    di            ;get size back
  298.     add    si,di            ;do it again
  299.     pop    cx
  300.     loop    setup_loop
  301. ex_set:
  302.     pop    cx
  303.     pop    si
  304.     pop    di
  305.     pop    dx
  306.     pop    bx
  307.     pop    ax
  308.     pop    es
  309.     ret
  310. setup_int endp
  311.  
  312. setdta    macro    ddptr
  313.     push    ds
  314.     mov    ax,1a00h    ;Function used to get current DTA address }
  315.     mov    dx,word ptr ddptr    ;Offset of DTA returned }
  316.     mov    ds,word ptr ddptr+2    ;Segment of DTA returned by DOS }
  317.     int    21h        ;Execute MSDos function request }
  318.     pop    ds
  319.     endm
  320.  
  321. getdta    macro    ddptr
  322.     push    es
  323.     mov    ax,2f00h    ;Function used to get current DTA address }
  324.     int    21h        ;Execute MSDos function request }
  325.     mov    word ptr ddptr+2,es        ;Segment of DTA returned by DOS }
  326.     mov    word ptr ddptr,bx        ;Offset of DTA returned }
  327.     pop    es
  328.     endm
  329.  
  330. ;
  331. ; ***************************************************************************
  332. ;    S E T   P S P
  333. ;
  334. ;    A bug in DOS 2.0, 2.1, causes DOS to clobber its standard stack   }
  335. ;    Then the PSP get/set functions are issued at the DOS prompt. The  }
  336. ;    following checks are made, forcing DOS to use the "critical"      }
  337. ;    stack when the TSR enters at the INDOS level.                     }
  338. ;
  339. ;        BX contains the PSP segment to set
  340. ;
  341. setpsp    proc    near
  342.     call    checkindos        ;If Version < 3, and INDOS,...
  343.     jz    do_set_psp
  344.     mov    byte ptr es:[di],0ffh    ;set critical flag
  345.  
  346.  
  347. do_set_psp:
  348.     mov    ax,5000h        ;set PSP* function
  349.                     ;BX already holds segment
  350.     int 21h                ;DOS function request
  351.  
  352.     call    checkindos        ;If Version < 3, and INDOS,...
  353.     jz    set_out
  354.     mov    byte ptr es:[di],0h    ;set critical flag
  355.  
  356. set_out:
  357.     ret
  358.  
  359. setpsp    endp
  360.  
  361. ;
  362. ; ***************************************************************************
  363. ;    G E T   P S P
  364. ;
  365. ;    A bug in DOS 2.0, 2.1, causes DOS to clobber its standard stack   }
  366. ;    Then the PSP get/set functions are issued at the DOS prompt. The  }
  367. ;    following checks are made, forcing DOS to use the "critical"      }
  368. ;    stack when the TSR enters at the INDOS level.                     }
  369. ;
  370. ;        The PSP Segment is returned in BX
  371. ;
  372. getpsp    proc    near
  373.     call    checkindos        ;If Version < 3, and INDOS,...
  374.     jz    do_get_psp
  375.     mov    byte ptr es:[di],0ffh    ;set critical flag
  376.  
  377. do_get_psp:
  378.     mov    ax,5100h        ;get PSP function
  379.     int 21h                ;DOS function request
  380.                     ;BX now holds PSP segment
  381.     call    checkindos        ;If Version < 3, and INDOS,...
  382.     jz    get_out
  383.     mov    byte ptr es:[di],0h    ;clear critical flag
  384.  
  385. get_out:
  386.     ret
  387.  
  388. getpsp    endp
  389.  
  390. ;
  391. ; ***************************************************************************
  392. ;    This routine checks the version of DOS in use, and returns the
  393. ;    ZF=0 (Not zero) if version < 3.0, and INDOS is set.  Internal function
  394. ;    is called ONLY by getpsp and setpsp.
  395. ;
  396. checkindos proc near
  397.     mov    al,dosversion
  398.     cmp    al,3            ;If Version is less than 3.0 ...
  399.     jge    ok_ret
  400.     mov    es,word ptr indosflag+2    ; ... and ...
  401.     mov    di,word ptr indosflag
  402.     mov    al,byte ptr es:[di]
  403.     or    al,al            ;INDOS is set ...
  404.     jz    ok_ret
  405.     mov    es,word ptr doscriterr+2; ... then ...
  406.     mov    di,word ptr doscriterr
  407.     jmp    fixit            ;exit with not zero
  408. ok_ret:
  409.     xor    al,al            ;set zero flag
  410. fixit:
  411.     ret
  412.  
  413. checkindos endp
  414.  
  415. ;
  416. ; ***************************************************************************
  417. ;    Internal routine to establish addressibility of the data segment
  418. ;
  419. dds proc near
  420.     push    cs
  421.     pop    ds
  422.     ret
  423. dds endp
  424.  
  425. newint9 proc far
  426.  
  427.     pushf
  428.     cli
  429.     push    ds
  430.     push    es
  431.     push    ax
  432.     push    bx
  433.     push    cx
  434.     push    dx
  435.     push    di
  436.     push    si
  437.  
  438.     push    cs
  439.     pop    ds
  440.  
  441. ;internal INT9 processing here
  442.  
  443. getkey_out:
  444.     pop    si
  445.     pop    di
  446.     pop    dx
  447.     pop    cx
  448.     pop    bx
  449.     pop    ax
  450.     pop    es
  451.     pop    ds
  452. out_9:
  453.     popf
  454.  
  455.     pushf
  456.     cli
  457.     call    dword ptr cs:oldint9
  458.  
  459.  
  460. ;
  461. ; ***************************************************************************
  462. ;    This is the int return (IRET) dummy pointer 
  463. ;
  464. intret:
  465.     iret
  466.  
  467. ignore_9:
  468.     in    al,60h
  469.     push    ax
  470.     pop    ax
  471.     in    al,61h
  472.     mov    ah,al
  473.     or    al,80h
  474.     out    61h,al
  475.     xchg    ah,al
  476.     out    61h,al
  477.     mov    al,20h
  478.     out    20h,al
  479.     pop    ax
  480.     jmp    short out_9
  481.  
  482. newint9 endp
  483.  
  484. new_bios_flag    db    0
  485.  
  486. newint16 proc far
  487. start_again:
  488.     mov    new_bios_flag,0
  489.     cmp    ah,00        ;if char request,
  490.     je    func00        ;loop for character
  491.     cmp    ah,01        ;if character availability test
  492.     je    func01        ;go check for char
  493.     and    ah,10h        ;test for extra bios
  494.     jz    gobios16
  495.     mov    new_bios_flag,10h
  496.     and    ah,3
  497.     jmp    short start_again
  498. gobios16:
  499.     or    ah,new_bios_flag
  500.     jmp    dword ptr cs:[oldint16]
  501.                 ;go to bios interrupt 16
  502. func01:
  503.     push    ds
  504.     push    si
  505.     push    di
  506.     call    dds
  507. func01A:
  508.     call    keystat        ;look at key buffer
  509.     pushf            ;save return flags
  510.     jz    fret01        ;return if no key
  511.     call    hotcheck    ;test for hot key
  512.     jnz    fret01        ;not there
  513.     popf            ;flags back for loop
  514.     jmp    func01A        ;it was a hot key -- skip it!
  515. fret01:
  516.     popf            ;flags back
  517.     pop    di
  518.     pop    si
  519.     pop    ds
  520.     ret    2        ;return to user
  521. func00:
  522.     push    ds
  523.     push    si
  524.     push    di
  525.     call    dds
  526. func00A:
  527.     call    keystat        ;wait until character available
  528.     jz    func00A        ;loop it
  529.     call    hotcheck    ;test for a hot key
  530.     jz    func00A        ;it sure was -- start loop again
  531.  
  532. b_func0:
  533.     mov    ah,0        ;get the next user key
  534.     or    ah,new_bios_flag
  535.     pushf            ;simulate it ...
  536.     call    dword ptr cs:oldint16    ;do bios
  537.  
  538. func_out:
  539.     pushf            ;save return flags
  540.     jmp    fret01        ;restore and return
  541.  
  542. newint16 endp
  543.  
  544. ;
  545. ;       call the background task if no key is available
  546. ;
  547. keystat proc near
  548.                 ;preserves all registers except
  549.                 ;AX,SI,DI,DS & flags
  550.     push    cx
  551.     push    bx
  552.  
  553.     push    ax
  554.     push    ds
  555.     cld
  556.  
  557.     mov    ax,BIOS_DATA
  558.     mov    ds,ax        ;set data segment
  559.     mov    si,KB_FLG1    ;set source
  560.  
  561.     lodsw            ;get the high and low bytes
  562.     pop    ds
  563.     mov    bx,ax        ;save it away
  564.     pop    ax
  565.  
  566.  
  567.     mov    al,SHIFTST    ;shift state check
  568.  
  569.     or    al,al        ;is it zero?
  570.     jz    sim_16        ;yes -- set flag for simulation
  571.  
  572.     push    bx        ;save current flags
  573.     and    bl,al        ;mask bits
  574.     cmp    al,bl        ;are we the same?
  575.     pop    bx
  576.     jne    skip_16A    ;nope -- next one
  577. sim_16:
  578.     or    word ptr STATUS,SHIFTSON    ;set the flag
  579.  
  580.     mov    al,HOTKEY    ;is this control block the last one?
  581.  
  582.     or    al,al
  583.     jnz    short skip_16
  584.     or    word ptr STATUS,HOTKEYON    ;turn on hotkey flag
  585.     jmp    short skip_16
  586. skip_16A:
  587.     and    word ptr STATUS,NOT SHIFTSON    ;set the flag
  588.  
  589. skip_16:
  590.     mov    ah,1            ;see if character is available
  591.     or    ah,new_bios_flag
  592.     pushf                ;simulate interrupt
  593.     call    dword ptr cs:oldint16
  594.  
  595.     jnz    exit_161        ;got one
  596.  
  597. chkdos_161:
  598.     cld
  599.     push    ds            ;check if dos critical error in effect
  600.     push    si
  601.         lds     si,cs:doscriterr    ;zero says dos is interruptable
  602.     lodsb                ;$ff  says dos is in a critical state
  603.     lds     si,cs:indosflag        ;if indos then int $28 issued by dos
  604.     or    al,[si]            ;so we dont have to.
  605.                     ;account for active interrupts
  606.     or    al,cs:intflags        ;any flags says we dont issue call
  607.     pop    si            ;to the background.
  608.     pop    ds
  609.     cmp    al,01            ;must be indos flag only
  610.     jg    skip28            ;dos cannot take an interrupt yet
  611.     int    28h            ;call dos idle function (background dispatch).
  612. skip28:
  613.     xor    ax,ax            ;show  no keycode available
  614. exit_161:
  615.     pop    bx
  616.     pop    cx
  617.         ret
  618.  
  619. keystat    endp
  620.  
  621. hotcheck proc near    ;DI points to TSR Block character is from
  622.             ;SI holds ID of TSR routine
  623.  
  624.     push    cx
  625.     push    ax        ;save character
  626.     push    di
  627.  
  628.     mov    al,HOTKEY
  629.  
  630.     or    al,al
  631.     jz    only_shift    ;special case for shift-state only
  632.  
  633.     cmp    al,ah        ;do scan codes match?
  634.     jne    again_16H
  635.  
  636. only_shift:
  637.     push    ax
  638.     mov    ax,STATUS    ;get TSR status flags
  639.     test    ax,SHIFTSON    ;are shift codes set?
  640.     jz    again_16H1    ;nope -- try next one
  641.     
  642.     or    ax,HOTKEYON    ;turn on hotkey flag
  643.     mov    STATUS,ax    ;put new flags back
  644.  
  645.     pop    ax
  646.     or    al,al        ;test for special case
  647.     pop    di        ;get back Block pointer
  648.     pop    ax        ;throwing this away
  649.  
  650.     jz    hot_out        ;special case for flags only
  651.  
  652. b_func1:
  653.     mov    ah,0        ;get rid of the character
  654.     or    ah,new_bios_flag
  655.     pushf            ;simulate interrupt
  656.     call    dword ptr cs:oldint16    ;do bios
  657.  
  658. hot_out:
  659.     xor    ax,ax        ;set zero flag
  660.     jmp    got_hot
  661.  
  662. again_16H1:
  663.     pop    ax        ;get rid of flag
  664. again_16H:
  665.     mov    al,0ffh
  666.     or    al,al        ;clear zero flag if set
  667.     pop    di
  668.     pop    ax        ;get back keystroke
  669. got_hot:
  670.     pop    cx        ;get back cx register
  671.     ret
  672.  
  673. hotcheck endp
  674.  
  675. newint8 proc far
  676.  
  677.     pushf
  678.     push    ds
  679.     push    di
  680.     push    cx            ;save regs
  681.     push    ax
  682.     call    dds
  683.  
  684.     mov    ax,STATUS
  685.     test    ax,HOTKEYON    ;is hot-key flag set?
  686.     jz    again_8_2
  687.     test    ax,TSRACTIVE    ;are we already running?
  688.     jnz    again_8_2    ;yep -- next one
  689.  
  690. wait_8:
  691.     cmp    waitcount,0    ;if waiting, check time
  692.     jnz    wait2_8        ;decrement count
  693.  
  694. chkdos_8:
  695.     cld
  696.     push    ds            ;check if dos critical error in effect
  697.     push    si
  698.         lds     si,cs:doscriterr    ;zero says dos is interruptable
  699.     lodsb                ;$ff  says dos is in a critical state
  700.     lds     si,cs:indosflag        ;add in second status byte
  701.     or    al,[si]
  702.     or    al,cs:intflags        ;any flags says we're busy
  703.     pop    si
  704.     pop    ds
  705.     jnz    wait1_8            ;we're busy -- set count & EXIT
  706.     call    dopopup            ;call the popup stuff
  707.     jmp    end_8            ;and out we go
  708. wait1_8:
  709.     mov    waitcount,10h        ;set the count
  710. wait2_8:
  711.     dec    waitcount
  712.     jz    chkdos_8
  713.  
  714. again_8_2:
  715. end_8:
  716.     pushf                ;simulate interrupt ...
  717.     call dword ptr oldint8        ;do the original
  718.  
  719.     pop    ax        ;get back registers
  720.     pop    cx
  721.     pop    di
  722.     pop    ds
  723.     popf
  724.  
  725. exit_8:
  726.     iret
  727.  
  728. newint8 endp
  729.  
  730. newint28 proc far
  731.  
  732.     pushf                ;simulate interrupt ...
  733.     call dword ptr cs:oldint28    ;do the original
  734.  
  735.     push    ds
  736.     push    di
  737.     push    cx            ;save regs
  738.     push    ax
  739.  
  740.     push    cs
  741.     pop    ds
  742.  
  743. again_28:
  744.     mov    ax,STATUS    ;get TSR status flags
  745.     test    ax,HOTKEYON    ;is hot-key flag set?
  746.     jz    again_28_2
  747.     test    ax,TSRACTIVE    ;are we already running?
  748.     jnz    again_28_2    ;yep -- next one
  749.  
  750. chkdos_28:
  751.     cld
  752.     push    ds            ;check if dos critical error in effect
  753.     push    si
  754.         lds     si,cs:doscriterr    ;zero says dos is interruptable
  755.     lodsb                ;$ff  says dos is in a critical state
  756.     or    al,cs:intflags        ;any flags says we're busy
  757.                     ;NOTE:  Indos flag is always set here!
  758.                     ; ... so don't have to check it!
  759.     pop    si
  760.     pop    ds
  761.     jnz    end_28            ;we're busy-EXIT & try again next time
  762.  
  763.     mov    waitcount,0        ;clear waiting count and ...    
  764.     call    dopopup            ;... call the popup stuff
  765.     jmp    end_28            ;and out we go
  766.  
  767. again_28_2:
  768. end_28:
  769.     pop    ax        ;get back registers
  770.     pop    cx
  771.     pop    di
  772.     pop    ds
  773.  
  774. exit_28:
  775.     iret
  776.  
  777. newint28 endp
  778.  
  779. di28    dw    0
  780. ds28    dw    0
  781.  
  782. dopopup proc near
  783.  
  784.     cli            ;no interrupts now!!!
  785.     
  786.     or    word ptr STATUS,TSRACTIVE    ;set active bit
  787.  
  788.     mov    ISSEG,ss        ;save user's stack segment
  789.     mov    ISPTR,sp        ;... and stack pointer
  790.                     ;DS was saved in INT8 or INT28
  791.  
  792.     mov    ss,SSEG        ;load TSR stack segment ...
  793.     mov    sp,SPTR        ;... and stack pointer
  794.  
  795.     push    bp            ;save all registers except for
  796.     push    bx            ;...those saved by calling routine,
  797.     push    dx            ;...DS,DI,CX,AX are restored on exit
  798.     push    si            ;...from this procedure
  799.     push    es
  800.  
  801.     mov    [di28],di        ;save TSR pointer until after saving
  802.     mov    [ds28],ds        ;...Indos stack
  803.  
  804.     mov    di,sp            ;destination is our stack
  805.     dec    di
  806.     dec    di            ;back off current word
  807.     mov    ax,ss            ;move stack segment
  808.     mov    es,ax            ;...to extra segment
  809.  
  810.     mov    si,cs:dossptr        ;source is DOS Indos Primary Stack
  811.     mov    ds,cs:dossseg        ;...and segment, of course
  812.     dec    si            ;point to last word on DOS stack
  813.     dec    si
  814.  
  815.     mov    cx,40h            ;stack size to save
  816.  
  817.     mov    ax,sp            ;save current stack pointer ...
  818.     sub    ax,cx            ;...and make room to avoid
  819.     sub    ax,cx            ;...overwriting during REP
  820.     mov    sp,ax            ;...and put it back
  821.  
  822.     std                ;set the direction flag ...
  823.     rep    movsw            ;and move the 40 word stack
  824.     mov    sp,di
  825.     cld                ;direction flag back
  826.  
  827.     mov    di,cs:di28        ;get TSR pointer back
  828.     mov    ds,cs:ds28
  829.  
  830.     sti                ;interrupts back on!!
  831.  
  832.     getdta    OLDDTA            ;save current DTA
  833.  
  834.     call    getpsp            ;get current PSP segment
  835.     mov    OLDPSP,bx        ;...returned in BX
  836.  
  837.     mov    bx,PSP            ;set TSR's PSP in BX
  838.     call    setpsp            ;...and do it
  839.  
  840.     setdta    DTA
  841.  
  842.     xor    ax,ax
  843.     call    setup_int        ;replace with our handler
  844.  
  845.     push    ds            ;save DS:DI for after popup
  846.     push    di
  847.     mov    ds,DSEG        ;load user's data segment
  848.  
  849.  
  850.     call    dword ptr cs:POPUP    ;call the user routine!!
  851.  
  852.  
  853.     pop    di            ;restore ds:di for addressibility
  854.     pop    ds
  855.  
  856.     mov    bx,OLDPSP        ;replace interrupted PSP
  857.     call    setpsp
  858.  
  859.     setdta    OLDDTA        ;restore interrupted DTA
  860.  
  861.     xor    ax,ax
  862.     call    restore_int        ;restore interrupts as well
  863.  
  864. ;terminate checking here!
  865.  
  866.     cli                ;no interrupts while manipulating stack
  867.  
  868.     mov    cx,40h            ;stack size here
  869.  
  870.     mov    di28,di            ;save TSR pointer until after saving
  871.     mov    ds28,ds            ;...Indos stack
  872.  
  873.     mov    ax,ss            ;source is current stack
  874.     mov    ds,ax
  875.     mov    si,sp            ;point to last word on our stack
  876.     inc    si
  877.     inc    si
  878.  
  879.     mov    es,cs:dossseg        ;destination is dos stack
  880.     mov    di,cs:dossptr
  881.     sub    di,cx            ;point backward to last used word 
  882.     sub    di,cx            ;...on dos stack
  883.     cld
  884.     rep    movsw
  885.  
  886.     mov    sp,si            ;skip over moved words
  887.  
  888.     mov    di,cs:[di28]        ;get TSR pointer back
  889.     mov    ds,cs:[ds28]
  890.  
  891.     pop    es
  892.     pop    si
  893.     pop    dx
  894.     pop    bx
  895.     pop    bp
  896.  
  897. ;
  898. ; ***************************************************************************
  899. ;
  900. ;    CAUTION!!!! THE USER ROUTINE MUST RETURN SS:SP WITH THE SAME
  901. ;        VALUES AS ON ENTRY.  OTHER REGISTERS WILL BE RESTORED
  902. ;        BY THIS ROUTINE.
  903. ;
  904. ; ***************************************************************************
  905. ;
  906. back_popup:
  907.  
  908.     mov    ss,ISSEG        ;restore user's stack segment
  909.     mov    sp,ISPTR        ;... and stack pointer
  910.                     ;DS will be restored in INT8 or INT28
  911.     and    STATUS,NOT HOTKEYON+TSRACTIVE
  912.                     ;clear hot-key and inuse bits
  913.  
  914.     sti                ;enable interrupts again
  915. dopopup_end:
  916.     ret
  917.  
  918. dopopup endp
  919.  
  920. newint13 proc far
  921.  
  922.     pushf
  923.     or     cs:intflags,ININT13
  924.     popf            ;get back original flags
  925.  
  926.     pushf                ;simulate interrupt ...
  927.     call dword ptr cs:oldint13    ;do the original
  928.  
  929.     pushf
  930.     and    cs:intflags,NOT ININT13
  931.     popf
  932.  
  933.     ret    2
  934.  
  935. newint13 endp
  936.  
  937. newint21 proc far
  938.     pushf
  939.     sti                ;allow interrupts
  940.  
  941.     cmp    ah,63h            ;max number
  942.     jg    notme
  943.     push    ax            ;some INT21 functions must be left
  944.     push    bx            ;...alone.  They either never return,
  945.     mov    bx,offset dos21funcs    ;...grab parameters from the stack
  946.     mov    al,ah            ;...or can be interrupted.
  947.     xlat    cs:dos21funcs        ;test function against table
  948.     or    al,al            ;wait for functions marked zero
  949.     pop    bx            ;these ,ust be left alone
  950.     pop    ax
  951.     jz    notme            ;jump to original INT21
  952.     jmp    short set_21
  953. notme:
  954.     popf
  955.     jmp    dword ptr cs:oldint21
  956.  
  957. set_21:
  958.     or     cs:intflags,ININT21    ;say int21 is active
  959.     popf                ;get original flags back
  960.     pushf                ;save flags and all regs that
  961.  
  962.     call    dword ptr cs:oldint21    ;do the interrupt
  963.     sti
  964.  
  965.     pushf                ;save return registers
  966.     and    cs:intflags,NOT ININT21    ;not active any more
  967.     popf                ;they're back
  968.  
  969.     ret    2            ;return with flags set
  970.  
  971. newint21 endp
  972.  
  973. error24    dw    0
  974.  
  975. newint24 proc far
  976.     pushf
  977.     mov    cs:error24,di        ;save the error
  978.     mov    al,0
  979.     iret
  980.  
  981. newint24 endp
  982.  
  983. pop_routine proc far    ;just prints a msg and gets out
  984.     lea    dx,hello
  985.     mov    ah,9
  986.     int    21h        ; display copyright notice
  987.     ret
  988. pop_routine endp
  989.  
  990.  
  991. TSR_stack     db    512 dup(0)
  992. TSR_stack_end:
  993.  
  994. res_part:    ; this is the end of my resident code so I can tell DOS
  995.         ; how big I am
  996. ;
  997. ;
  998. ; ***************************************************************************
  999. ;
  1000. ;    Initialization Code -- load routine and point new int14
  1001. ;
  1002. second_time    db    0    ;flag used to test for odd-byte check
  1003.  
  1004. begin:
  1005.     lea    dx,cpyrt
  1006.     mov    ah,9
  1007.     int    21h        ; display copyright notice
  1008.  
  1009.     call    getpsp        ;Current PSP returned in BX
  1010.     mov    PSP,bx
  1011.     getdta    DTA        ;macro to get Disk Transfer Address
  1012.  
  1013.     mov    ax,ds
  1014.     mov    DSEG,ax        ;save it
  1015.     mov    SSEG,ax        ;save it here too!
  1016.     mov    word ptr POPUP+2,ax    ;save it here three!
  1017.     mov    ax,offset TSR_stack_end
  1018.     sub    ax,2
  1019.     mov    SPTR,ax
  1020.  
  1021.     mov    SHIFTST,08h    ;ALT-Key + ...
  1022.     mov    HOTKEY,2dh    ;...'X' to pop up
  1023.  
  1024.     mov    word ptr POPUP,offset pop_routine
  1025.  
  1026.     mov    ax,3400h        ;find the DOS Indos Byte
  1027.     int    21h
  1028. crit2:
  1029.     mov    word ptr indosflag,bx    ;offset returned in BX
  1030.     mov    word ptr indosflag+2,es    ;segment returned in ES
  1031.     mov    dossseg,es        ;this is also the DOS stack segment
  1032.     mov    word ptr doscriterr+2,es;as well as the segment for the critical flag
  1033.     mov    cx,2000h         ;search for instruction: CMP [crit flag],00
  1034.     mov    ax,3e80h         ;3e80 is opcode to search for
  1035.     mov    di,bx             ;start search here
  1036. crit3:
  1037.     repnz    scasw             ;search until a match is found
  1038.     jnz    no_crit_found         ;couldn't find critical byte
  1039.                     ;we're going to search for the
  1040.                     ;address of the critical flag
  1041.                     ;es:[di-2] now points to:
  1042.                     ;       CMP [crit flag],00
  1043.                     ;       JNZ ...
  1044.                     ;       MOV SP,indos stack address      
  1045.     mov    al,byte ptr es:[di+5]     ;MOV SP,xxxx
  1046.     cmp    al,0bch         ;opcode for MOV SP
  1047.     jne    crit3             ;bad place.  Sorry
  1048.     mov    ax,word ptr es:[di]     ;here's the critical byte address
  1049.     mov    word ptr doscriterr,ax
  1050.     mov    ax,word ptr es:[di+6]     ;...and here's the stack pointer
  1051.     mov    word ptr dossptr,ax
  1052.     mov    ax,1                                                     
  1053.     jmp    no_error
  1054. no_crit_found:
  1055.     mov    al,second_time        ;did we already try odd bytes?
  1056.     or    al,al
  1057.     jz    crit_again        ;nope ...
  1058.     jmp    bad_dos_version        ;we tried!
  1059. crit_again:
  1060.     mov    second_time,1        ;set the flag
  1061.     inc    bx            ;increment pointer (needed for AT&T
  1062.     jmp    crit2            ;DOS 2.11 and some others
  1063.  
  1064. no_error:
  1065.     mov    ax,1
  1066.     call    setup_int
  1067.  
  1068.     lea    dx,res_part    ; load offset of top of code
  1069.     add    dx,15        ;round up
  1070.     shr    dx,1
  1071.     shr    dx,1
  1072.     shr    dx,1
  1073.     shr    dx,1        ; divide by 16 to get paragraphs
  1074.     xor    al,al        ; no errors
  1075.     mov    ah,31h        ; load terminate & stay resident code
  1076.     int    21h
  1077.  
  1078. bad_dos_version:
  1079.     lea    dx,bad_dos_msg
  1080.     mov    ah,9
  1081.     int    21h        ; display error message
  1082.     mov    ax,4cffh            ;exit with -1 return code
  1083.     int    21h
  1084.  
  1085. code    ends
  1086.  
  1087.     end    start
  1088.